home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / SHARED.DXR / 04973_TAnim.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  1.9 KB  |  110 lines
  1. property ancestor, fAnimList, fAnimGrp, fAnimFrm, fLoop
  2.  
  3. on birth me, vSprNum, vID
  4.   set ancestor to NewObj("TMyView", vSprNum, vID)
  5.   mIAnim(me)
  6.   return me
  7. end
  8.  
  9. on mIAnim me
  10.   set fAnimList to NewObj("TTxtDim")
  11.   mStAnimGrp(me, 1)
  12.   mStAnimFrm(me, 1)
  13.   mStLoop(me, 1)
  14.   mStPuppet(me, 1)
  15. end
  16.  
  17. on mStAnimNums me, vAnimNumsStr
  18.   mStHorizItems(fAnimList, mGtAnimGrp(me), vAnimNumsStr)
  19. end
  20.  
  21. on mStAnimNumOne me, vFrmNum, vAnimNum
  22.   mStVal(fAnimList, vFrmNum, mGtAnimGrp(me), vAnimNum)
  23. end
  24.  
  25. on mStAnimNumBgnEnd me, vBgnNum, vEndNum
  26.   set aAnimNums to EMPTY
  27.   repeat with aAnimNum = vBgnNum to vEndNum
  28.     put "," & aAnimNum after aAnimNums
  29.   end repeat
  30.   delete char 1 of aAnimNums
  31.   mStAnimNums(me, aAnimNums)
  32. end
  33.  
  34. on mGtCurCastNum me
  35.   return integer(mGtVal(fAnimList, mGtAnimFrm(me), mGtAnimGrp(me)))
  36. end
  37.  
  38. on mStAnimGrp me, vGrpNum
  39.   set fAnimGrp to vGrpNum
  40. end
  41.  
  42. on mGtAnimGrp me
  43.   return fAnimGrp
  44. end
  45.  
  46. on mStAnimFrm me, vFrm
  47.   set fAnimFrm to vFrm
  48. end
  49.  
  50. on mGtAnimFrm me
  51.   return fAnimFrm
  52. end
  53.  
  54. on mGtNumAnimFrm me
  55.   return the number of items in mGtHorizItems(fAnimList, mGtAnimGrp(me))
  56. end
  57.  
  58. on mStAnimFrmNxt me
  59.   set aNewFrm to mGtAnimFrm(me) + 1
  60.   if aNewFrm > mGtNumAnimFrm(me) then
  61.     if mGtLoop(me) = 1 then
  62.       set aNewFrm to 1
  63.     else
  64.       set aNewFrm to aNewFrm - 1
  65.     end if
  66.   end if
  67.   mStAnimFrm(me, aNewFrm)
  68.   mUpdateSpr(me)
  69. end
  70.  
  71. on mStAnimFrmPrv me
  72.   set aNewFrm to mGtAnimFrm(me) - 1
  73.   if aNewFrm < 1 then
  74.     if mGtLoop(me) = 1 then
  75.       set aNewFrm to mGtNumAnimFrm(me)
  76.     else
  77.       set aNewFrm to 1
  78.     end if
  79.   end if
  80.   mStAnimFrm(me, aNewFrm)
  81.   mUpdateSpr(me)
  82. end
  83.  
  84. on mStAnimFrmFirst me
  85.   mStAnimFrm(me, 1)
  86.   mUpdateSpr(me)
  87. end
  88.  
  89. on mStAnimFrmLast me
  90.   mStAnimFrm(me, mGtNumAnimFrm(me))
  91.   mUpdateSpr(me)
  92. end
  93.  
  94. on mStAnimFrmRandom me
  95.   mStAnimFrm(me, random(mGtNumAnimFrm(me)))
  96.   mUpdateSpr(me)
  97. end
  98.  
  99. on mStLoop me, vLoopON
  100.   set fLoop to vLoopON
  101. end
  102.  
  103. on mGtLoop me
  104.   return fLoop
  105. end
  106.  
  107. on mUpdateSpr me
  108.   mStCastNum(me, mGtCurCastNum(me))
  109. end
  110.